0 GOTO90
2 D=INT(RND(1)*9)+1
3 E=INT(RND(1)*9)+1:I=D*E:PRINT"";D;"[214]";E;
4 X=2:Q=0:FORT=1TO7:POKEU,241:FORTT=1TO300:NEXT:POKEU,0:FORTT=1TO50:NEXT:NEXT:GOTO34
8 IFQ=ITHEN18
9 IFQ<>ITHEN70
14 POKEA,G:POKEA+B,2:Q=Q+1:FORT=170TO135STEP-1:POKEU+1,T:NEXT:POKEU+1,0:POKEA,32:GOTO40
18 K=K+1:PRINT"[147][144]GREAT!!!":PRINT"CORRECT ANSWER!":PRINT"";D;"[214]";E;"=";I
19 PRINT"[156]YOUR SCORE IS NOW";K:FORT=135TO241:POKEU,T:NEXT
20 POKEU,0:FORT=1TO2:POKEU,241:FORTT=1TO200:NEXT:POKEU,0:FORTT=1TO50:NEXT:NEXT
21 PRINT"[144]HIT SPACE"
22 IFPEEK(197)<>32THEN22
23 PP=PP+1:IFPP<10THEN29
24 POKE36869,240:PRINT"[147]       GAME OVER":PRINT"FINAL SCORE:";K
25 PRINT"YOU HAVE COMPLETED TEN PROBLEMS WITHOUT GUMS GETTING YOU!"
26 PRINT"HIT F1[146] TO PLAY          AGAIN."
27 IFPEEK(197)<>39THEN27
28 RUN95
29 PRINT"[147]":POKE36869,255
30 A=8131:B=30720:C=7680:V=36878:POKEV,15:U=36876:POKEV+1,238:X=1
31 FORT=1TO125:S=INT(RND(1)*396)+7702:POKES,5:POKES+B,0:NEXT:H=7679
33 IFX=1THEN2
34 POKEC+B,0:POKEC+1+B,0:POKEC,3:POKEC+1,4:IFA=CORA=C+1THEN55
35 WAIT653,1,1:IFC>8160THENPOKEC,32:POKEC+1,32:C=7680
36 POKEA,32:F=PEEK(197):IFF<>23ANDF<>31THENA=A-22:G=0
37 IFF=31THENA=A-1:G=2
38 IFF=23ANDA<8163THENA=A+1:G=1
39 IFPEEK(A)=5THEN14
40 POKEA+B,2:POKEA,G:POKEC,32:POKEC+1,32:C=C+1:IFPEEK(C+1)=5THENC=C+22
41 IFA<HTHEN8
42 GOTO33
55 L=15
56 FORT=200TO135STEP-1:POKEU+1,T:NEXT:POKEU+1,135:FORT=1TO50:NEXT:POKEU+1,0
57 L=L-1:POKEV,L:IFL>5THEN56
58 FORT=1TO1500:NEXT:POKEU-2,135:FORT=1TO1000:NEXT:POKEU-2,0
60 POKE36869,240:PRINT"[147]GUMS GOT YA!":PRINT"BUT DON'T WORRY,YOU   WERE DELICOUS!!"
61 PRINT"HITF1[146] TO PLAY AGAIN"
62 IFPEEK(197)<>39THEN62
63 RUN29
70 POKE36869,240:IFQ>ITHENPRINT"[147]YOU ATE TOO MUCH!"
71 IFQ<ITHENPRINT"[147]YOU DIDN'T EAT ENOUGH!"
72 FORT=241TO135STEP-1:POKEU,T:NEXT:POKEU,0:FORTT=1TO100:NEXT:POKEU,140:FORT=1TO1000
73 NEXT:POKEU,0:PRINT"";D;"[214]";E;"=";I;:PRINT"YOU ATE";Q
74 K=K-1:PRINT"YOUR SCORE IS NOW";K:GOTO21
90 POKE52,28:POKE56,28:CLR:FORI=7168TO7679:POKEI,PEEK(I+25600):NEXT
91 RESTORE:FORT=1TO20:READF:NEXT:FORG=7168TO7221:READF:POKEG,F:NEXT
92 DATA135,145,155,145,155,165,155,165,175,185,185,195,165,165,165,195,195,165,165,215
93 DATA24,40,122,114,60,24,24,60,0,12,158,253,247,144,12,0,0,48,121,191,239,9,48,0
94 DATA14,7,143,223,255,255,223,143,0,0,192,160,240,184,128,240,0,0,0,0,4,28,60,28,0,0,0
95 DATA0,0,0
100 POKE36879,8:PRINT"[147][159][166][166][166][160][166][166][166][160][166][166][166][160][166][160][166]":PRINT"[166][160][160][160][160][166][160][160][166][160][160][160][166][160][166]":PRINT"[166][166][160][160][160][166][160][160][166][166][166][160][166][166][166]"
101 PRINT"[166][160][160][160][160][166][160][160][160][160][166][160][166][160][166]":PRINT"[166][160][160][160][166][166][166][160][166][166][166][160][166][160][166]":PRINT:PRINT"   [166][160][160][160][166][160][166][166][166][160][166][166][166][160][166][160][166]"
102 PRINT"   [166][166][160][166][166][160][166][160][166][160][160][166][160][160][166][160][166]":PRINT"[160][160][160][166][160][166][160][166][160][166][166][166][160][160][166][160][160][166][166][166]":PRINT"   [166][160][160][160][166][160][166][160][166][160][160][166][160][160][166] [166]"
103 PRINT"   [166][160][160][160][166][160][166][160][166][160][160][166][160][160][166][160][166]":PRINT"[158]   BY KEVIN DEWEY."
104 PRINT"     HIT ANY KEY";:POKE198,0
105 PRINT"[144]":POKE36878,15
106 RESTORE:FORT=1TO20:READU:POKE36876,U:FORTT=1TO100:NEXT:POKE36876,0
107 GETA$:IFA$<>""THEN29
108 NEXT
109 GOTO106